home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 219 / 219.d81 / exit 255 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  474b  |  14 lines
  1. 10 dv=peek(186)
  2. 20 goto40000
  3. 10000 d=peek(186):n$="exit 255":open1,d,15,"s0:"+n$:close1:saven$,d:end
  4. 40000 print"[147]";:vl=53248:pokevl+17,27:pokevl+24,21:f$="hello connect"
  5. 40001 q$="r0:"+f$+"="+f$:i=dv:gosub40050
  6. 40002 fori=8to13:gosub40050:next:fori=15to29:gosub40050:next
  7. 40003 pokevl+32,14:pokevl+33,6:poke646,14
  8. 40004 poke44,8:poke2048,0:poke56,160:new
  9. 40050 close2:open2,i,2:close2:ifstthenreturn
  10. 40060 close15:open15,i,15,q$:input#15,er:close15:ifer<>63thenreturn
  11. 40080 q$=chr$(34):poke646,peek(vl+33)
  12. 40081 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$f$q$","i
  13. 40082 print"run":poke631,13:poke632,13:poke198,2:end
  14.